home *** CD-ROM | disk | FTP | other *** search
/ The 640 MEG Shareware Studio 2 / The 640 Meg Shareware Studio CD-ROM Volume II (Data Express)(1993).ISO / clang / c1.zip / FLOOR.C < prev    next >
Text File  |  1987-06-18  |  640b  |  30 lines
  1.  
  2. /***********************************************************
  3.  *               The TULSA IBM C BOARD                     *
  4.  *                   918-664-8737                          *
  5.  *             300/1200 XMODEM, 24 Hours                   *
  6.  **********************************************************/
  7.  
  8.  
  9. #include "math.h"
  10.  
  11. double floor(d)
  12. double d;
  13. {
  14.         if (d < 0.0)
  15.                 return -ceil(-d);
  16.         modf(d, &d);
  17.         return d;
  18. }
  19.  
  20. double ceil(d)
  21. double d;
  22. {
  23.         if (d < 0.0)
  24.                 return -floor(-d);
  25.         if (modf(d, &d) > 0.0)
  26.                 ++d;
  27.         return d;
  28. }
  29.  
  30.